' METHODS for object: UploadPackageInstaller.UploadWizardInstall
Sub InstChoice_ValidateDisplay(ok As Boolean)
InstChoice.optDoInstall.Value = True
End Sub
End Type
' METHODS for object: UploadPackageInstaller
Sub Preload()
Dim r as Long
Dim module as ObjectModule
Dim f As New File
' If the Tools menu isn't here, bail
If Not FindObject("EnvelopForm.EnvelopMenus.EnvelopToolsMenu") Then Exit Sub
module = ModuleManager.ModuleContaining(Me)
' Get the filename of the object module so that we can use its
' path to find the upldptch.eto patch module (or bail if it ain't here
f.FileName = module.FileName
f.FileName = f.Path & "upldptch.eto"
If Not f.Exists Then
InfoBox.Message("Upload Package Install", "Unable to install the upload wizards. The file, 'upldptch.eto' was not found in the directory: " & f.Path)
Exit Sub
End If
' Let the user refuse us if he wants to (this should be an embedded 1 step wizard that
' tells the user what's going to happen and cancel will abort us, finish will do it
r = UploadWizardInstall.ShowModal
If r <> IDOK Then Exit Sub
If ModuleManager.ModuleContaining(EnvelopForm).ReadOnly Then
MessageBox.Message("No Write Permission", "Upload Wizard Installation can not proceed.^M^JThe file, " & ModuleManager.ModuleContaining(EnvelopForm).FileName & ", does not have write persmissions set.^M^JTo fix this problem, exit Envelop, change the permissions of the file^M^Jto make it writeable, and restart Envelop.")
' Prior to saving we delete installer (and its embedded 1 step wizard)
DestroyObject Me
module.SaveAs(App.Path & "upldpkg.ebo", False)
End Sub
Sub TextPreLoad()
RequestObjectPreload UploadPackageInstaller
End Sub
End Type
Type FTPtransfer
Dim Username As String
Dim Password As String
Dim RemoteHost As String
Dim RemoteDir As String
Property ProgExists Get FTPProgExists As Boolean
Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal path As Long, ByVal target As String, ByVal ext As Long, ByVal cchBuf As Long, ByVal buf As Long, namePartAddr As Long) As Long
' METHODS for object: FTPtransfer
Function FTPProgExists As Boolean
End Function
Function Receive(FileName As String) As String
End Function
Function Send(FileName As String) As String
End Function
End Type
Type UploadWizardSelect From WizardMaster.Wizard
Type SelectWiz From WizardMaster.FrmStep
Dim optUploadFOB As New OptionButton
Dim optHomepage As New OptionButton
' METHODS for object: UploadWizardSelect.SelectWiz
Sub BtnNext_Click()
If optUploadFOB.Value = True Then
BtnFinish_Click
FOBUploadWizard.Show
ElseIf optHomepage.Value = True Then
BtnFinish_Click
MemPageUploadWizard.Show
End If
End Sub
Function Display (curStep As WizardMaster.FrmStep, direction As String, modal As Boolean) As Long
Dim ok as Boolean
' Enable Next and Back buttons if they lead somewhere
BtnBack.Enabled = BackStep
' BtnNext.Enabled = NextStep
' Enable Next button cuz even though this wizard has no more
' steps, next will take us to one of our other upload wizards
BtnNext.Enabled = True
' Disable the finish button so that only Next & Cancel are enabled
BtnFinish.Enabled = False
' Set default button to be the Next button
DefaultButton = BtnNext
DefaultButton.SetFocus
' Move me to the same position as curStep form
If curStep Then Move(curStep.Left, curStep.Top, curStep.Width, curStep.Height)
' Validate the show by rasing the ValidateDisplay Event
' ok is passed by reference, so we will see any changes
' handlers make to it. Load the form prior to validate to
' ensure creation of windows for controls we may be initing
ok = True
LoadForm
SendEvent ValidateDisplay(ok)
' If Display is not valid, throw
If Not ok Then Throw InvalidStep
' Show me
Show
' If we are coming from somewhare...
If curStep Then
' Hide the curStep form
curStep.Hide
' If we moved forward from this place,
' make sure we can get back
If direction = "Next" Then BackStep = curStep
End If
Display = IIf(modal, ShowModal, -1)
End Function
End Type
' METHODS for object: UploadWizardSelect
Sub SelectWiz_ValidateDisplay(ok As Boolean)
SelectWiz.optUploadFOB.Value = True
End Sub
End Type
Type FTPpassive From FTPtransfer
' METHODS for object: FTPpassive
Sub BuildIniFile (title As String)
Dim s As New TextFile
' Create the ini file for ws_ftp32
s.FileName = title
s.Create -1
s.Print "[_config_]"
s.Print "SESSION=envelop"
s.Print "AUTOSTART=0"
s.Print "MAILADDR=" & Password
s.Print " "
s.Print "[envelop]"
s.Print "HOST=" & RemoteHost
s.Print "UID=" & Username
' note: the password is some kind of encoded version of
' the real password. this should not matter for anonymous
' logins, but it is an issue of you must supply a genuine
' password. Anonymous logins make use of the MAILADDR line.
s.Print "PWD=" & Password
s.Print "LOCDIR=\temp"
s.Print "DIR=" & RemoteDir
s.Print "PASVMODE=1"
s.Close
End Sub
Function FTPProgExists As Boolean
Dim db As New DataBuffer
Dim r, namePartAddr As Long
Dim ok As Boolean
db.Size = 200
r = SearchPath(0, "ws_ftp32.exe", 0, 260, db.Data, namePartAddr)
ok = r > 0 && r < db.Size
FTPProgExists = ok
End Function
Function Receive(FileName As String) As String
dim i,s as new TextFile
dim remdir as string
dim cmd as string
' set up a file object for the incoming file
i.FileName = FileName
' make sure the remote dir name ends with a slash
remdir = RemoteDir
If Right$(remdir, 1) <> "/" Then
remdir = remdir & "/"
End If
' Create the ini file for ws_ftp32
BuildIniFile("download.ini")
' Build the ftp command
cmd = "ws_ftp32 -i download.ini "
' For anonymous logins, use the full remote host name in ws_ftp32 command
' otherwise use the 'configuration' named envelop in the upload.ini file
Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal path As Long, ByVal target As String, ByVal ext As Long, ByVal cchBuf As Long, ByVal buf As Long, namePartAddr As Long) As Long
' METHODS for object: ZIParchive
Sub AddFileToArchive (theFile As String, recurseSubdirs As Boolean, delFiles As Boolean)
Dim cmd As String
Dim opts As String
Dim f As New TextFile
Dim l As New TextFile
' Ensure the zip program is findable
If Not ZIPProgExists Then
InfoBox.Message("ZIP Alert", "The zip.exe program was not found. Ensure that the directory which contains it is in your PATH.")
Exit Sub
End If
' Get out if no file name passed to us
If theFile = "" Then Exit Sub
' Get out if we don't have a meaningful file
f.FileName = theFile
If (Not f.Exists) Then
Dim d As New Directory
d.Path = theFile
If (Not d.Exists) Then
d.Path = d.CurrentDir & "\" & theFile
If (Not d.Exists) Then
Exit Sub
End If
End If
opts = IIf(recurseSubdirs, "-r ", "")
Else
' suppress path info for files going into archive
opts = "-j "
End If
If delFiles Then opts = opts & "-m "
' add the file(s) to the archive
cmd = "zip " & opts & FileName & " " & theFile
' For Some unknown reason, if we don't provide a file for stdout, zip
' has problems (internal logic error) adding stuff to existing archives. ??
l.FileName = "tmpzip.log"
l.Create -1
RunProgramRedirect(cmd, -1, -1, -1, l.Handle, -1)
l.Close
l.Delete
End Sub
Sub AddTextToArchive (thetext As String, filetitle As String)
Dim f As New TextFile
If thetext = "" Then Exit Sub
' Create a temporary file to hold the text, add it to the
' archive and then blow it away
f.FileName = filetitle
f.Create -1
f.SetContentsTo thetext
f.Close
AddFileToArchive(filetitle, False, False)
f.Delete
End Sub
Sub ExtractAllFiles
Dim cmd As String
' Ensure existence...
If Not Exists Then
InfoBox.Message("Alert", "Could not find the archive: " & FileName)
Exit Sub
End If
' Need to ensure that unzip is in the path
cmd = "unzip " & FileName
RunProgramRedirect(cmd, -1, -1, -1, -1, -1)
End Sub
Sub InitArchive
' All we do here is check to see if a file with this name already exists,
' and if it does, blow it away to make room for the archive
If Exists Then Delete
End Sub
Function ZIPProgExists As Boolean
Dim db As New DataBuffer
Dim r, namePartAddr As Long
Dim ok As Boolean
db.Size = 200
r = SearchPath(0, "zip.exe", 0, 260, db.Data, namePartAddr)
ok = r > 0 && r < db.Size
ZIPProgExists = ok
End Function
End Type
Type FTPactive From FTPtransfer
' METHODS for object: FTPactive
Function FTPProgExists As Boolean
Dim db As New DataBuffer
Dim r, namePartAddr As Long
Dim ok As Boolean
db.Size = 200
r = SearchPath(0, "ftp.exe", 0, 260, db.Data, namePartAddr)
ok = r > 0 && r < db.Size
FTPProgExists = ok
End Function
Function Receive(FileName As String) As String
dim s,l as new TextFile
dim cmd as string
' Create the script used to retrieve file via ftp
s.FileName = "ftp.dnl"
s.Create -1
s.Print "open " & RemoteHost
s.Print Username
s.Print Password
s.Print "cd " & RemoteDir
s.Print "binary"
s.Print "get " & FileName
s.Print "quit"
s.Close
' Build the ftp command
cmd = "ftp -s:ftp.upl"
' Create the output file
l.FileName = "ftp.log"
l.Create -1
' Run the ftp command
RunProgramRedirect(cmd, -1, -1, -1, l.Handle, -1)
' Set our return value to be the output from the ftp command
Send = l.ContentsAsString
' Tidy up
l.Close
s.Delete
End Function
Function Send(FileName As String) As String
dim s,l as new TextFile
dim cmd as string
' Create the script used to ftp out file
s.FileName = "ftp.upl"
s.Create -1
s.Print "open " & RemoteHost
s.Print Username
s.Print Password
s.Print "cd " & RemoteDir
s.Print "binary"
s.Print "put " & FileName
s.Print "quit"
s.Close
' Build the ftp command
cmd = "ftp -s:ftp.upl"
' Create the output file
l.FileName = "ftp.log"
l.Create -1
' Run the ftp command
RunProgramRedirect(cmd, -1, -1, -1, l.Handle, -1)
' Set our return value to be the output from the ftp command
Send = l.ContentsAsString
' Tidy up
l.Close
s.Delete
End Function
End Type
Type FOBUploadWizard From WizardMaster.Wizard
Type Header From WizardMaster.FrmStep
Dim TextBox1 As New TextBox
' METHODS for object: FOBUploadWizard.Header
Sub ValidateDisplay(ok As Boolean)
If Not initialized Then
TextBox1.Text = ""
initialized = True
End If
End Sub
End Type
Type Content From WizardMaster.FrmStep
Dim TextBox1 As New TextBox
' METHODS for object: FOBUploadWizard.Content
Sub ValidateDisplay(ok As Boolean)
If Not initialized Then
TextBox1.Text = ""
initialized = True
End If
End Sub
End Type
Dim Email As New WizardMaster.FrmStep
Type FtpLog From WizardMaster.FrmStep
Dim TextBox1 As New TextBox
End Type
Type ZipFile From WizardMaster.FrmStep
Dim TextBox1 As New TextBox
Dim BTNBrowse As New Button
Dim BTNAdd As New Button
Dim BTNRemove As New Button
Dim ObjList As New ListBox
Dim fileNav As New OpenDialog
Dim BTNAddDir As New Button
' METHODS for object: FOBUploadWizard.ZipFile
Sub BTNAddDir_Click()
FOBUploadWizard.AddWholeDir
End Sub
Sub BTNAdd_Click()
If ObjList.ItemIndex(TextBox1.Text) = -1 Then ObjList.AddItem(TextBox1.Text)
InfoBox.Message("FTP Alert", "The Upload Wizard was unable to find the passive mode FTP program, ws_ftp32.exe, in its path. It will use ftp.exe instead. If you are behind a firewall, this may not succeed. If you have ws_ftp32.exe, modify your PATH so that it contains the ws_ftp32 program. You can download the ws_ftp32 program from: http://www.csra.net/junodj/")
Active = True
Else
InfoBox.Message("FTP Alert", "The Upload Wizard was unable to find neither the passive mode FTP program, ws_ftp32.exe, nor ftp.exe in its path. The upload can not proceed. If you have ws_ftp32.exe or ftp.exe, modify your PATH so that it contains their directories. If you are behind a firewall, you may be required to use ws_ftp32. You can download it from: http://www.csra.net/junodj/")
ok = False
Exit Sub
End If
End If
' Ensure the zip program is findable
If Not Archive.ZIPProgExists Then
InfoBox.Message("ZIP Alert", "The zip.exe program was not found. Ensure that the directory which contains it is in your PATH.")
InfoBox.Message("FTP Alert", "The Upload Wizard was unable to find the passive mode FTP program, ws_ftp32.exe, in its path. It will use ftp.exe instead. If you are behind a firewall, this may not succeed. If you have ws_ftp32.exe, modify your PATH so that it contains the ws_ftp32 program. You can download the ws_ftp32 program from: http://www.csra.net/junodj/")
Active = True
Else
InfoBox.Message("FTP Alert", "The Upload Wizard was unable to find neither the passive mode FTP program, ws_ftp32.exe, nor ftp.exe in its path. The upload can not proceed. If you have ws_ftp32.exe or ftp.exe, modify your PATH so that it contains their directories. If you are behind a firewall, you may be required to use ws_ftp32. You can download it from: http://www.csra.net/junodj/")
ok = False
Exit Sub
End If
End If
' Ensure the zip program is findable
If Not Archive.ZIPProgExists Then
InfoBox.Message("ZIP Alert", "The zip.exe program was not found. Ensure that the directory which contains it is in your PATH.")
End With 'UploadPackageInstaller.UploadWizardInstall.InstChoice.ImgGraphic
With .LblInstruction
.Caption := "Would you like to install the upload wizards permanently? After the installation is finished, you can access the upload wizards by selecting the 'Upload...' button on the Tools menu."
.ZOrder := 8
.Move(2850, 225, 4125, 825)
End With 'UploadPackageInstaller.UploadWizardInstall.InstChoice.LblInstruction
With .Frame1
.ZOrder := 7
.Move(75, 3825, 6975, 75)
End With 'UploadPackageInstaller.UploadWizardInstall.InstChoice.Frame1
End With 'UploadPackageInstaller.UploadWizardInstall.InstChoice
With .Bitmap
.LoadType := "MemoryBased"
.FileName := "upldpkg.ero"
.ResId := 0
End With 'UploadPackageInstaller.UploadWizardInstall.Bitmap
End With 'UploadPackageInstaller.UploadWizardInstall
End With 'UploadPackageInstaller
' Reconstruction commands for object: FTPtransfer
'
With FTPtransfer
.Username := ""
.Password := ""
.RemoteHost := ""
.RemoteDir := ""
End With 'FTPtransfer
' Reconstruction commands for object: UploadWizardSelect
End With 'UploadWizardSelect.SelectWiz.optUploadFOB
With .optHomepage
.Caption := "My Homepage"
.ZOrder := 3
.Move(2850, 1500, 3000, 450)
End With 'UploadWizardSelect.SelectWiz.optHomepage
With .BtnFinish
.Enabled := False
.ZOrder := 1
.Move(6225, 4050, 825, 300)
End With 'UploadWizardSelect.SelectWiz.BtnFinish
With .BtnNext
.ZOrder := 4
.Move(5325, 4050, 825, 300)
End With 'UploadWizardSelect.SelectWiz.BtnNext
With .BtnBack
.Enabled := False
.ZOrder := 5
.Move(4500, 4050, 825, 300)
End With 'UploadWizardSelect.SelectWiz.BtnBack
With .BtnCancel
.ZOrder := 6
.Move(3600, 4050, 825, 300)
End With 'UploadWizardSelect.SelectWiz.BtnCancel
With .ImgGraphic
.ZOrder := 9
.Move(225, 225, 2475, 3150)
.Picture := UploadWizardSelect.Bitmap
End With 'UploadWizardSelect.SelectWiz.ImgGraphic
With .LblInstruction
.Caption := "What would you like to upload?"
.ZOrder := 7
.Move(2850, 225, 4125, 375)
End With 'UploadWizardSelect.SelectWiz.LblInstruction
With .Frame1
.ZOrder := 8
.Move(75, 3825, 6975, 75)
End With 'UploadWizardSelect.SelectWiz.Frame1
End With 'UploadWizardSelect.SelectWiz
With .Bitmap
.LoadType := "MemoryBased"
.FileName := "upldpkg.ero"
.ResId := 2704
End With 'UploadWizardSelect.Bitmap
End With 'UploadWizardSelect
' Reconstruction commands for object: FTPpassive
'
With FTPpassive
End With 'FTPpassive
' Reconstruction commands for object: ZIParchive
'
With ZIParchive
End With 'ZIParchive
' Reconstruction commands for object: FTPactive
'
With FTPactive
End With 'FTPactive
' Reconstruction commands for object: FOBUploadWizard
'
With FOBUploadWizard
.title_ := "Free Objects Upload Wizard"
.Title := "Free Objects Upload Wizard"
.GraphicFileName := "upldpkg.ero"
.FirstStep := FOBUploadWizard.IntroPage
.LastStep := FOBUploadWizard.FtpLog
.Active := False
With .Header
.Caption := "Free Objects Upload Wizard"
.Move(5280, 4515, 7155, 4815)
.DefaultButton := FOBUploadWizard.Header.BtnNext
.CancelButton := FOBUploadWizard.Header.BtnCancel
.wizard := FOBUploadWizard
.NextStep := FOBUploadWizard.Content
.BackStep := FOBUploadWizard.UserInfo
With .TextBox1
.ZOrder := 1
.Move(2700, 750, 4350, 300)
End With 'FOBUploadWizard.Header.TextBox1
With .BtnFinish
.Enabled := False
.ZOrder := 7
.Move(6225, 4050, 825, 300)
End With 'FOBUploadWizard.Header.BtnFinish
With .BtnNext
.ZOrder := 2
.Move(5325, 4050, 825, 300)
End With 'FOBUploadWizard.Header.BtnNext
With .BtnBack
.ZOrder := 3
.Move(4500, 4050, 825, 300)
End With 'FOBUploadWizard.Header.BtnBack
With .BtnCancel
.ZOrder := 4
.Move(3600, 4050, 825, 300)
End With 'FOBUploadWizard.Header.BtnCancel
With .ImgGraphic
.ZOrder := 5
.Move(300, 300, 2250, 3150)
.Picture := FOBUploadWizard.Bitmap
End With 'FOBUploadWizard.Header.ImgGraphic
With .LblInstruction
.Caption := "Enter a brief one line description of your object."
.ZOrder := 8
.Move(2700, 225, 4275, 375)
End With 'FOBUploadWizard.Header.LblInstruction
With .Frame1
.ZOrder := 6
.Move(75, 3825, 6975, 75)
End With 'FOBUploadWizard.Header.Frame1
End With 'FOBUploadWizard.Header
With .Content
.Caption := "Free Objects Upload Wizard"
.Move(5280, 4515, 7155, 4815)
.DefaultButton := FOBUploadWizard.Content.BtnNext
.CancelButton := Nothing
.wizard := FOBUploadWizard
.NextStep := FOBUploadWizard.ZipFile
.BackStep := FOBUploadWizard.Header
With .TextBox1
.ZOrder := 1
.Move(2700, 1050, 4200, 2550)
.WordWrap := True
.MultiLine := True
.ScrollBars := "Vertical"
End With 'FOBUploadWizard.Content.TextBox1
With .BtnFinish
.Enabled := False
.ZOrder := 7
.Move(6225, 4050, 825, 300)
End With 'FOBUploadWizard.Content.BtnFinish
With .BtnNext
.ZOrder := 2
.Move(5325, 4050, 825, 300)
End With 'FOBUploadWizard.Content.BtnNext
With .BtnBack
.ZOrder := 3
.Move(4500, 4050, 825, 300)
End With 'FOBUploadWizard.Content.BtnBack
With .BtnCancel
.ZOrder := 4
.Move(3600, 4050, 825, 300)
End With 'FOBUploadWizard.Content.BtnCancel
With .ImgGraphic
.ZOrder := 5
.Move(300, 300, 2250, 3150)
.Picture := FOBUploadWizard.Bitmap
End With 'FOBUploadWizard.Content.ImgGraphic
With .LblInstruction
.Caption := "Enter a complete description of the object you are uploading. You may also enter HTML to provide links to your homepage or other sites of interest."
.ZOrder := 8
.Move(2700, 225, 4275, 675)
End With 'FOBUploadWizard.Content.LblInstruction
With .Frame1
.ZOrder := 6
.Move(75, 3825, 6975, 75)
End With 'FOBUploadWizard.Content.Frame1
End With 'FOBUploadWizard.Content
With .Email
.Caption := "Free Objects Upload Wizard"
.Move(5280, 4515, 7155, 4815)
.DefaultButton := FOBUploadWizard.Email.BtnNext
.CancelButton := Nothing
.ControlBox := True
.wizard := FOBUploadWizard
.NextStep := FOBUploadWizard.FtpLog
.BackStep := FOBUploadWizard.ZipFile
With .BtnFinish
.ZOrder := 5
.Move(6225, 4050, 825, 300)
End With 'FOBUploadWizard.Email.BtnFinish
With .BtnNext
.ZOrder := 1
.Move(5325, 4050, 825, 300)
End With 'FOBUploadWizard.Email.BtnNext
With .BtnBack
.ZOrder := 6
.Move(4500, 4050, 825, 300)
End With 'FOBUploadWizard.Email.BtnBack
With .BtnCancel
.ZOrder := 2
.Move(3600, 4050, 825, 300)
End With 'FOBUploadWizard.Email.BtnCancel
With .ImgGraphic
.ZOrder := 3
.Move(300, 300, 2250, 3150)
.Picture := FOBUploadWizard.Bitmap
End With 'FOBUploadWizard.Email.ImgGraphic
With .LblInstruction
.Caption := "You are now ready to do the upload. Click 'Next' if you are connected to the Internet. The wizard will package all of the information and send it to the Envelop web server."
.Caption := "Here is the result log of your ftp submission."
.ZOrder := 8
.Move(2700, 225, 4275, 375)
End With 'FOBUploadWizard.FtpLog.LblInstruction
With .Frame1
.ZOrder := 6
.Move(75, 3825, 6975, 75)
End With 'FOBUploadWizard.FtpLog.Frame1
End With 'FOBUploadWizard.FtpLog
With .ZipFile
.Caption := "Free Objects Upload Wizard"
.Move(5280, 4515, 7155, 4815)
.DefaultButton := FOBUploadWizard.ZipFile.BtnNext
.CancelButton := Nothing
.wizard := FOBUploadWizard
.NextStep := FOBUploadWizard.Email
.BackStep := FOBUploadWizard.Content
With .TextBox1
.ZOrder := 4
.Move(2700, 1200, 4200, 300)
End With 'FOBUploadWizard.ZipFile.TextBox1
With .BTNBrowse
.Caption := "Browse..."
.ZOrder := 3
.Move(6000, 1650, 900, 300)
End With 'FOBUploadWizard.ZipFile.BTNBrowse
With .BTNAdd
.Caption := "Add"
.ZOrder := 2
.Move(2700, 1650, 600, 300)
End With 'FOBUploadWizard.ZipFile.BTNAdd
With .BTNRemove
.Caption := "Remove"
.ZOrder := 1
.Move(3450, 1650, 900, 300)
End With 'FOBUploadWizard.ZipFile.BTNRemove
With .BTNAddDir
.Caption := "Add Whole Dir"
.ZOrder := 1
.Move(4500, 1650, 1350, 300)
End With 'FOBUploadWizard.ZipFile.BTNAddDir
With .ObjList
.Caption := "ObjList"
.ZOrder := 10
.Move(2715, 2115, 4170, 1590)
End With 'FOBUploadWizard.ZipFile.ObjList
With .fileNav
.Title := ""
.DefaultExtension := ""
.FileMustExist := True
.FileName := ""
.Filter := ""
End With 'FOBUploadWizard.ZipFile.fileNav
With .BtnFinish
.ZOrder := 7
.Move(6225, 4050, 825, 300)
End With 'FOBUploadWizard.ZipFile.BtnFinish
With .BtnNext
.ZOrder := 6
.Move(5325, 4050, 825, 300)
End With 'FOBUploadWizard.ZipFile.BtnNext
With .BtnBack
.ZOrder := 5
.Move(4500, 4050, 825, 300)
End With 'FOBUploadWizard.ZipFile.BtnBack
With .BtnCancel
.ZOrder := 11
.Move(3600, 4050, 825, 300)
End With 'FOBUploadWizard.ZipFile.BtnCancel
With .ImgGraphic
.ZOrder := 12
.Move(300, 300, 2250, 3150)
.Picture := FOBUploadWizard.Bitmap
End With 'FOBUploadWizard.ZipFile.ImgGraphic
With .LblInstruction
.Caption := "Enter the names of all the files related to your submission. (Envelop Object files, a Help file, a README.TXT file, and any other files your object needs)"
.Caption := "You are now ready to do the upload. Click 'Next' if you are connected to the Internet. The wizard will package up all of the information and send it to the Envelop web server."
.ZOrder := 4
.Move(2700, 225, 4275, 825)
End With 'MemPageUploadWizard.Email.LblInstruction
With .Frame1
.ZOrder := 3
.Move(75, 3825, 6975, 75)
End With 'MemPageUploadWizard.Email.Frame1
End With 'MemPageUploadWizard.Email
With .FtpLog
.Caption := "Member Homepage Upload Wizard"
.Move(2940, 2265, 7155, 4815)
.DefaultButton := Nothing
.CancelButton := Nothing
.wizard := MemPageUploadWizard
.BackStep := MemPageUploadWizard.Email
With .TextBox1
.ZOrder := 8
.Move(2700, 750, 4200, 3000)
.WordWrap := True
.MultiLine := True
.ScrollBars := "Vertical"
End With 'MemPageUploadWizard.FtpLog.TextBox1
With .BtnFinish
.ZOrder := 2
.Move(6225, 4050, 825, 300)
End With 'MemPageUploadWizard.FtpLog.BtnFinish
With .BtnNext
.Enabled := False
.ZOrder := 5
.Move(5325, 4050, 825, 300)
End With 'MemPageUploadWizard.FtpLog.BtnNext
With .BtnBack
.ZOrder := 1
.Move(4500, 4050, 825, 300)
End With 'MemPageUploadWizard.FtpLog.BtnBack
With .BtnCancel
.Enabled := False
.ZOrder := 6
.Move(3600, 4050, 825, 300)
End With 'MemPageUploadWizard.FtpLog.BtnCancel
With .ImgGraphic
.ZOrder := 1
.Move(225, 225, 2250, 3150)
.Picture := MemPageUploadWizard.Bitmap
End With 'MemPageUploadWizard.FtpLog.ImgGraphic
With .LblInstruction
.Caption := "Here is the result log of your ftp submission."
.ZOrder := 4
.Move(2700, 300, 4275, 375)
End With 'MemPageUploadWizard.FtpLog.LblInstruction
With .Frame1
.ZOrder := 3
.Move(75, 3825, 6975, 75)
End With 'MemPageUploadWizard.FtpLog.Frame1
End With 'MemPageUploadWizard.FtpLog
With .TarFiles
.Caption := "Member Homepage Upload Wizard"
.Move(2940, 2265, 7155, 4815)
.DefaultButton := Nothing
.CancelButton := Nothing
.wizard := MemPageUploadWizard
.NextStep := MemPageUploadWizard.Email
.BackStep := MemPageUploadWizard.UserInfo
With .TextBox1
.ZOrder := 5
.Move(2700, 975, 4200, 450)
End With 'MemPageUploadWizard.TarFiles.TextBox1
With .FileList
.Caption := "FileList"
.ZOrder := 4
.Move(2715, 1965, 4170, 1785)
End With 'MemPageUploadWizard.TarFiles.FileList
With .AddFile
.Caption := "Add"
.ZOrder := 3
.Move(2700, 1500, 600, 300)
End With 'MemPageUploadWizard.TarFiles.AddFile
With .RemoveFile
.Caption := "Remove"
.ZOrder := 2
.Move(3450, 1500, 900, 300)
End With 'MemPageUploadWizard.TarFiles.RemoveFile
With .BTNAddDir
.Caption := "Add Whole Dir"
.ZOrder := 1
.Move(4500, 1500, 1350, 300)
End With 'MemPageUploadWizard.TarFiles.BTNAddDir
With .BTNBrowse
.Caption := "Browse..."
.ZOrder := 1
.Move(6000, 1500, 900, 300)
End With 'MemPageUploadWizard.TarFiles.BTNBrowse
With .fileNav
.Title := ""
.DefaultExtension := ""
.FileMustExist := True
.FileName := ""
.Filter := ""
End With 'MemPageUploadWizard.TarFiles.fileNav
With .BtnFinish
.ZOrder := 9
.Move(6225, 4050, 825, 300)
End With 'MemPageUploadWizard.TarFiles.BtnFinish
With .BtnNext
.ZOrder := 8
.Move(5325, 4050, 825, 300)
End With 'MemPageUploadWizard.TarFiles.BtnNext
With .BtnBack
.ZOrder := 7
.Move(4500, 4050, 825, 300)
End With 'MemPageUploadWizard.TarFiles.BtnBack
With .BtnCancel
.ZOrder := 6
.Move(3600, 4050, 825, 300)
End With 'MemPageUploadWizard.TarFiles.BtnCancel
With .ImgGraphic
.ZOrder := 12
.Move(225, 225, 2250, 3150)
.Picture := MemPageUploadWizard.Bitmap
End With 'MemPageUploadWizard.TarFiles.ImgGraphic
With .LblInstruction
.Caption := "Enter the HTML source file for you homepage as well as any support files. Your homepage must be named index.htm."
.ZOrder := 11
.Move(2700, 300, 4275, 600)
End With 'MemPageUploadWizard.TarFiles.LblInstruction
.Caption := "You will be prompted for the following information:"
.ZOrder := 4
.Move(2700, 750, 4200, 450)
End With 'MemPageUploadWizard.IntroPage.Label1
With .Label2
.Caption := "1. Your username, password, and email address"
.ZOrder := 3
.Move(2700, 1650, 4200, 300)
End With 'MemPageUploadWizard.IntroPage.Label2
With .Label3
.Caption := "2. The HTML source text for your homepage, which must be named index.html, and any support files that it may need."
.ZOrder := 2
.Move(2700, 2100, 4050, 600)
End With 'MemPageUploadWizard.IntroPage.Label3
With .Label5
.Caption := "The wizard will then package all of this information and send it to the Envelop web server. You will be notified via email after it has been inspected."
.ZOrder := 1
.Move(2700, 3000, 4200, 900)
End With 'MemPageUploadWizard.IntroPage.Label5
With .BtnFinish
.Enabled := False
.ZOrder := 5
.Move(6225, 4050, 825, 300)
End With 'MemPageUploadWizard.IntroPage.BtnFinish
With .BtnNext
.ZOrder := 10
.Move(5325, 4050, 825, 300)
End With 'MemPageUploadWizard.IntroPage.BtnNext
With .BtnBack
.Enabled := False
.ZOrder := 6
.Move(4500, 4050, 825, 300)
End With 'MemPageUploadWizard.IntroPage.BtnBack
With .BtnCancel
.ZOrder := 7
.Move(3600, 4050, 825, 300)
End With 'MemPageUploadWizard.IntroPage.BtnCancel
With .ImgGraphic
.ZOrder := 8
.Move(225, 225, 2250, 3150)
.Picture := MemPageUploadWizard.Bitmap
End With 'MemPageUploadWizard.IntroPage.ImgGraphic
With .LblInstruction
.Caption := "This is the Upload Wizard for Member Homepages"
.ZOrder := 9
.Move(2700, 225, 4275, 375)
.Alignment := "Center"
End With 'MemPageUploadWizard.IntroPage.LblInstruction
